Pascal/Turbo Pascal - Pulse <INTRO> versión 2

PROGRAM Pausa;
USES
Crt;
PROCEDURE LeeTecla;
VAR
tecla : char;
BEGIN
Write ('Pulse <INTRO> para continuar...');
Writeln;
REPEAT (*Hasta que no pulsemos <INTRO> el bucle repetir no parar . Nota: la*)
(*tecla <INTRO> es la n£mero 13, por eso la condici¢n para que el *)
(*bucle se detenga es tecla=#13. *)
tecla := ReadKey;
UNTIL tecla = #13;
Writeln;
END;

PROCEDURE Listado;
VAR
cont : integer;
BEGIN
ClrScr;
FOR cont := 1 TO 1000 DO
BEGIN
Writeln (cont);
IF cont MOD 48 = 0 THEN (*La pantalla tiene 49 lineas, pero usamos cont MOD 48 porque el mensaje de Leetecla ocupa una posici¢n. Si cont MOD*)
(*48 = 0 entonces... *)
LeeTecla
END;
IF cont MOD 48 <> 0 THEN
LeeTecla (*Llamamos al procedimiento LeeTecla, esto lo hacemos para que se pida al usuario pulsar <INTRO> al final de mostrar
todo el listado independientemente de si cont MOD 45 es igual o no a 0. *)
END;

BEGIN
Listado
END.

Este programa funciona, lo podeis probar, este programa está bien si la pantalla tiene 49 líneas, pero me he dado cuenta (probando este programa en otros ordenadores) que no siempre tiene 49 líneas la pantalla. ¿Cómo pueo hacer un programa de este estilo que funcione en todos los ordenadores?. Gracias a todos.

Lo que yo quiero se consigue usando Hi(WindMax), es decir, sólo hay que sustituir 48 por (Hi(WindMax)-1).
El problema es que no puedo usar esa función, Hi(WinMax), me la tendría que crear yo sólo, ¿sería muy complicado?. ¿Alguna idea de como crear la función Hi(WindMax)?. Gracias.

Tomando en cuenta que las variables "WindMin" y "WindMax" son de tipo "Word", las funciones quedarían:
Espero te sean de utilidad. Saludos ;-)

Pregunta: ¿por qué no puedes usar Hi(WindMax)?, está en la unidad CRT (Uses Crt;).